a = 7 (slider from 1 to 15, step 1)
b = 8 (slider from 1 to 15, step 1)
c = 1 (slider from 0 to 15, step 1)
L1 = Sequence(Sequence[Sequence[Cube[(k, l, n), (k + 1, l, n), (k + 1, 1 + l, n)], k, 0, a - 1], l, 0, b - 1], n, 0, c - 1)
L2 = Sequence(Sequence[Sequence[Cube[(k + m, l + m, m + c), (k + 1 + m, l + m, m + c), (k + 1 + m, 1 + l + m, m + c)], k, 0, a - (2 * m) - 1], l, 0, b - (2 * m) - 1], m, 0, Min[a, b])